   1 goto 3
   2 box C,D,24,5,1;return 
   3 Q=0
   4 clear ;NT=0;BC=0;FC=7;F=-48;G=50;H=64;I=-50;J=45;K=0;Z=255
   5 for A=145to 133step -4;box 0,0,A,H,3;H=H-2;next A;gosub 6;gosub 9;goto 90
   6 box 0,0,132,58,2;for A=1to 35;for B=0to 1;C=rnd (128)-64;D=rnd (29);if B C=-C;goto 8
   7 D=-D
   8 box C,D,1,1,1;next B;next A;return 
   9 CX=-39;CY=36;print "left GUNS   BOMBSright ";CX=-39;CY=-37;print "left SHIELDS FUELright 
  10 C=58;D=36;gosub 2;C=-C;gosub 2;D=-37;gosub 2;C=-C;gosub 2;return 
  20 C=22;FC=90;N=260;U=252;for A=1to 2;for B=56to 12step -C;&(19)=N;&(23)=Z;&(21)=U;box B,0,C,Bdiv 11,3;box -B,0,C,Bdiv 11,3
  25 N=N+5;U=U-2;next B;next A;&(21)=0;FC=7
  30 box F,36,4,5,2;F=F-4;if F<-70CX=-67;CY=36;print "DEAD",
  40 return 
  50 FC=117;for N=1to 2;C=14;D=Z;for B=-27to -3step 4;&(19)=D;&(23)=Z;&(21)=Z;box 0,B,C,4,3;C=C-2;D=D+15;next B;next N
  60 B=2;for N=2to 132step 10;box 0,0,N,B,3;B=B+4;D=290;FC=154;for V=1to 4;&(19)=D;D=D-10;next V;FC=122;next N;&(21)=0;FC=7
  70 box G,36,8,5,2;G=G+8;if G>70CX=50;CY=36;print "AWAY",
  80 return 
  90 L=rnd (2)-1;if K>999if J>68Q=Q+K;for A=4to 132step 4;box 0,0,A,Adiv 3,1;box 0,0,Adiv 2,Adiv 4,2;next A;gosub 210;gosub 230;goto 4
 100 Y=rnd (58)-29;for A=1to 2;X=65;if L X=-X
 120 line X,Y,4;line 0,0,3;next A;gosub 250;for A=5to 38
 125 V=0;&(17)=Z-(Amul 6)+6;&(22)=Z;if A=38&(22)=0
 130 if (A=rnd (11)+5)+(A=rnd (11)+22)FC=250;V=1;for M=0to 1;D=290;for T=22to 132step 10;&(19)=D;&(23)=Z;&(21)=Z
 135 if Vbox 0,0,T,2,3;D=D-2;if M&(21)=0
 140 if TR(1)if JX(1)=-1if F>-70gosub 260;gosub 20;gosub 6;goto 180
 150 if TR(1)if JX(1)=1if G<70gosub 50;gosub 290;gosub 6;goto 180
 160 if Vnext T;next M;FC=7;if A>40gosub 290;K=K-125
 170 box 0,0,A,A,1;box 0,0,Amul 3,Adiv 5,1
 173 box 0,Adiv 2-RM,Adiv 3+RM,Adiv 2+RM,1
 174 box 0,-2,A-4,A-4,3
 175 next A;gosub 290;gosub 6
 180 for A=1to 50;if TR(1)if JY(1)=-1if J<65if F<-48if F>0-70F=F+4;box F,36,4,5,1;gosub 220
 190 if TR(1)if JY(1)=1if J<65if I<-52if I>-70I=I+8;box I,-37,8,5,1;gosub 220
 195 if (K<0)+(I<-78)goto 240
 200 next A;&(21)=0;goto 90
 210 CX=-27;CY=0;print #0,"SC0RE:",Q,;return 
 220 for R=1to 3;gosub 250;next R;return 
 230 CX=-25;CY=-10;print #0,"TRY AGAIN!",;for A=0to 999;next A;return 
 240 Q=Q+K;CX=-25;CY=10;print "GAME 0VER!";gosub 210;CX=-25;CY=-10;print "Y0U L0ST!";goto 320
 250 J=J+1;box J,-37,1,5,2;if J>69if F<-70if G>70goto 240
 255 return 
 260 if A<30if A>15K=K+100
 270 if A>30K=K+75
 280 &(22)=0;return 
 290 if A>25box I,-37,8,5,2;I=I-8;K=K-50
 300 if A>4if A<25K=K+200
 305 if A>24if I<-70CX=-67;CY=-37;print #0,"G0NE",
 310 &(19)=0;&(22)=0;return 
 320 if KPrun 
:return ;run 